home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed4.d64 / number sequence (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  278 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  31. 310 REM PROJECT DIRECTOR: FRANK WINTER
  32. 320 REM PROGRAM NAME: NUMBER SEQUENCE
  33. 330 REM WRITTEN BY A. JOHNSON
  34. 340 REM REVISED BY PETER WAN
  35. 350 REM UPDATED BY BILL CUMBERLAND 90
  36. 399 :
  37. 400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
  38. 405 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  39. 412 [153]"     (null)HIS PROGRAM WILL HELP YOU WITH"
  40. 414 [153]" NUMBER SEQUENCES.  (null)OU HAVE THE CHOICE"
  41. 416 [153]" OF FIVE DIFFERENT LEVELS.  (null)EVEL ONE"
  42. 418 [153]" IS THE EASIEST, AND EACH LEVEL HIGHER"
  43. 420 [153]" IS MORE DIFFICULT."
  44. 422 [153]"     ATNLL YOU HAVE TO DO IS FILL IN THE
  45. 424 PRINT" MISSING NUMBERS IN THE SEQUENCE THAT
  46. 426 [153]" THE COMPUTER GIVES YOU."
  47. 485 [141]820
  48. 490 [151]UT,UU%
  49. 495 [142]
  50. 699 :
  51. 700 [143] <YES> SOUND
  52. 705 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  53. 710 [151]54296,15:[151]54277,42:[151]54278,250
  54. 715 [151]54276,23:[151]54273,23:[151]54272,191
  55. 720 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  56. 725 [151]54296,0:[142]
  57. 730 [143] <NO> SOUND
  58. 735 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  59. 740 [151]54296,15:[151]54277,18:[151]54278,242
  60. 745 [151]54276,33:[151]54273,4:[151]54272,48
  61. 750 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  62. 755 [151]54296,0:[142]
  63. 760 [143] <BLIP> SOUND
  64. 765 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  65. 770 [151]54296,7:[151]54277,42:[151]54278,250
  66. 775 [151]54276,23:[151]54273,23:[151]54272,191
  67. 780 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  68. 785 [151]54296,0:[142]
  69. 790 [129]T[178]1[164]500:[130]:[142]
  70. 791 [129]T[178]1[164]1000:[130]:[142]
  71. 792 [129]T[178]1[164]2000:[130]:[142]
  72. 793 [129]T[178]1[164]3000:[130]:[142]
  73. 795 [129]T[178]1[164]5000:[130]:[142]
  74. 799 :
  75. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,5
  76. 801 [153]"     A TPUG EDUCATIONAL PROGRAM
  77. 802 PRINT"           FOR C64 COMPUTERS
  78. 803 [153]"              GRADES 1-3
  79. 804 GOSUB791
  80. 805 PRINT"                                        [146]";
  81. 806 PRINT"                                        [146]";
  82. 807 PRINT"                                        [146]";
  83. 808 PRINT"           NUMBER SEQUENCE              [146]";
  84. 809 PRINT"                                        [146]";
  85. 810 PRINT"                                        [146]";
  86. 811 PRINT"                                        [146]":GOSUB792:GOSUB760
  87. 812 PRINT"         INSTRUCTIONS?  Y/N
  88. 813 [161]UI$:[139]UI$[179][177]"Y"[175]UI$[179][177]"N"[167]813
  89. 814 [139]UI$[178]"Y"[167] [141]400
  90. 815 [153]"LOAD  AND AWAY WE GO .........":[141]791:[141]700:[141]790
  91. 816 [137]1000
  92. 820 [141]791:[141]760
  93. 823 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAIT"
  94. 825 [161]UI$:[139]UI$[179][177]" "[167]825
  95. 830 [142]
  96. 835 [141]792:[141]760
  97. 837 [151]UN,0:[153][200](UD$,24);"  PRESS SPACE BAR TO CONTINUE  WAIT"
  98. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  99. 845 [142]
  100. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  101. 855 [153]" --------------------------------------"
  102. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ANSWER, THEN PRESS RETURN"
  103. 865 UH[178]0:[153]"":[142]
  104. 875 [153][200](UD$,24);"           ONE MOMENT PLEASE...     ":[142]
  105. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  106. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  107. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  108. 905 UD$[178]"":UP$[178]"                                      "
  109. 906 [134]YZ(10)
  110. 909 [142]
  111. 910 [141]900:[153]"LOAD "
  112. 920 [137] 800
  113. 1000 [153]"LOAD"UC$;:[140]:[151]UY,0:[151]UX,0
  114. 1005 WW$[178]"":[140]:UG$[178]"QUESTION #":SQ$[178]"":UT$[178]" NUMBER SEQUENCE"
  115. 1010 S$[178]"":[129]I[178]826[164]857:[135]A:[151]I,A:[130]:UP[178]0
  116. 1011 [131]162,128,160,0,132,33,134,34,177,33,73,128,145,33,200,208,247,232
  117. 1012 [131]224,132,208,240,96,173,17,232,73,8,141,17,232,96
  118. 1200 [153]"LOAD"
  119. 1206 [153]WW$" YOU HAVE THE CHOICE OF THE FOLLOWING"
  120. 1207 [153]" FIVE LEVELS:"
  121. 1215 [153][163]7)" 1 WAIT - STEPS OF ONE"
  122. 1225 [153][163]7)" 2 WAIT - STEPS OF TWO"
  123. 1235 [153][163]7)" 3 WAIT - STEPS OF FIVE"
  124. 1245 [153][163]7)" 4 WAIT - STEPS OF TEN"
  125. 1255 [153][163]7)" 5 WAIT - VARIOUS STEPS":[141]760
  126. 1300 [153]"  WHAT LEVEL DO YOU CHOOSE? ";:US$[178]"12345":UL[178]1:[141]35
  127. 1310 XT[178][197](UR$)
  128. 1410 TQ[178]0:NR[178]0:[129]ZX[178]1[164]5:UP[178]ZX:UG$[178]"   QUESTION #":UP[178]ZX[171]1:[153]"LOAD"
  129. 1413 [153]" --------------------------------------"
  130. 1415 [145]XT[137]1520,1510,1530,1540,1500
  131. 1500 A[178][181]([187](TI)[172]4)[170]1:[145]A[137]1510,1520,1530,1540
  132. 1510 IN[178]2:M[178]28:[137]1550
  133. 1520 IN[178]1:M[178]82:[137]1550
  134. 1530 IN[178]5:M[178]11:[137]1550
  135. 1540 IN[178]10:M[178]2
  136. 1550 L[178]8:SN[178][181]([187](TI)[172]M)[172]IN[170]10:BS[178]0:[129]CR[178]1[164]10:YZ(CR)[178]0:[130]
  137. 1570 BS[178][181]([187](TI)[172]3)[170]2:[129]CR[178]1[164]BS
  138. 1580 F[178][181]([187](TI)[172]L)[170]1
  139. 1585 [139]YZ(F)[179][177]0[167]1580
  140. 1590 YZ(F)[178]1:[130]:[153]WW$"";:[129]CR[178]1[164]L:A$[178]"     "
  141. 1630 [139]YZ(CR)[178]1[167]A$[178]" TAB(TAB(  "
  142. 1640 [153]A$;:[130]:[153]WW$"";:[129]CR[178]0[164]L[171]1:A$[178]"  "
  143. 1670 [139]YZ(CR[170]1)[178]0[167]A$[178][202]([196](SN[170]IN[172]CR),2)
  144. 1680 [153]A$SQ$;:[130]:[129]K[178]1[164]3:[153]:[130]
  145. 1700 NX$[178]"FIRST":[139]BS[178]1[167]NX$[178]"MISSING"
  146. 1710 [129]CC[178]1[164]L:[139]YZ(CC)[178]0[167]1800
  147. 1720 [141]760
  148. 1730 [153]" WHAT'S THE "NX$" NUMBER ? ";:US$[178]"0123456789":UL[178]2:[141]35
  149. 1735 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  150. 1736 [153][200](UD$,24)UP$
  151. 1737 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%:[151]U4,U4%
  152. 1740 LE[178][197](UR$):[139]LE[178](CC[171]1)[172]IN[170]SN[167][141]4000:[137]1770
  153. 1750 [141]15000
  154. 1760 [139]PC[178]8[167]PC[178]0:[137]1730
  155. 1765 [141]12000
  156. 1770 NX$[178]"NEXT"
  157. 1800 WR[178]0:[130]CC:TQ[178]TQ[170]BS
  158. 1810 [130]ZX
  159. 1910 [139]NR[177][178]TQ[173]2[167][141]28000:[141]16000:[137]3999
  160. 2910 [141]28000:[141]29000
  161. 3999 [142]
  162. 4000 [143] * WIN ROUTINE *
  163. 4001 [141]700:[153]WW$""[166](CC[171]1)[172]5)"     "
  164. 4002 [153]WW$[166](CC[171]1)[172]5)(CC[171]1)[172]IN[170]SNS"
  165. 4003 FORCR=1TO4:FORYY=1TO10:NEXT:GOSUB10000:NEXT
  166. 4004 QP=INT(RND(TI)*6)+1
  167. 4005 ONQPGOTO4006,4059,5200,6200,7200,8200
  168. 4006 PRINTS$:PRINT" [167]    [165]   [167] [167]      [165]             [207][208]"
  169. 4009 PRINT" [167]    [165]   [167] [167]      [165]    [160]        [165][167]"
  170. 4011 PRINT" [167]    [165][206][163][205][167] [167]   [206][163][205][165][206][163][205][167][206][163][205] [206][163][205]  [165][167]"
  171. 4013 PRINT" [167] [206][205] [165][207][163][163][167] [167]   [165][160] [165][165] [167][167]  [167] [207][163][163]  [204][186]"
  172. 4014 PRINT" [167][206]  [205][165][205][164][206][167] [167]   [205][164][206][165][205][164][206][167]  [167] [205][164][206]  [162][162]"
  173. 4015 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":PRINT:PRINT:GOTO8300
  174. 4059 PRINTS$:PRINT" [167][163][163][163][163]            [167] [167]          [165]   [207][208]"
  175. 4060 PRINT" [167]                [167] [167]          [165]   [165][167]"
  176. 4061 PRINT" [167][192][192][192]  [205] [206] [206][163][205] [206][163][205][167] [167] [206][163][205][167][206][163][205] [163][207][163]  [165][167]"
  177. 4062 PRINT" [167]      [214]  [165]   [207][163][163][167] [167] [207][163][163][167]  [167]  [165]   [204][186]"
  178. 4063 PRINT" [167][164][164][164][164] [206][160][205][160][205][164][206] [205][164][206][167] [167] [205][164][206][167]  [167]  [205][164]  [162][162]"
  179. 4064 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":PRINT:PRINT:GOTO8300
  180. 5200 PRINTS$:PRINT" [167][163][163][163][205]                  [165]    [207][208]"
  181. 5206 PRINT" [167]   [167]                  [165]    [165][167]  "
  182. 5207 PRINT" [167]   [167] [206][163][205] [206][163][205] [206][163][205][167][206][163][205] [163][207][163]   [165][167]  "
  183. 5208 PRINT" [167]   [167] [207][163][163] [165][160]  [207][163][163][167] [160][167]  [165]    [204][186]  "
  184. 5210 PRINT" [167][164][164][164][206] [205][164][206] [205][164][206] [205][164][206][167]  [167]  [205][164]   [162][162]  "
  185. 5220 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  186. 5232 PRINT"                             ":GOTO8300
  187. 6200 PRINTS$:PRINT" [206][163][163][205][160]        [160][160][160][165] [167]    [165]      [167]    [207][208]"
  188. 6206 PRINT" [165]               [165] [167]    [165]      [167]    [165][167]"
  189. 6207 PRINT" [165] [163][208] [206][163][205] [206][163][205] [206][163][205][165] [167]    [165][206][163][205][167][206][163][167] [206]  [165][167]"
  190. 6208 PRINT" [165]  [167] [165][160][167] [165][160][167] [165][160][160][165] [167] [206][205] [165][165][160][167][167]  [167][206][205]  [204][186]"
  191. 6210 PRINT" [205][164][164][206] [205][164][206] [205][164][206] [205][164][206][165] [167][206][160][160][205][165][205][164][206][167]  [167]  [205] [162][162]"
  192. 6220 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  193. 6232 PRINT"                             ":GOTO8300
  194. 7200 PRINTS$:PRINT"   [206][163][163][205][160]             [165]       [207][208]"
  195. 7206 PRINT"   [165]                 [165]       [165][167]"
  196. 7207 PRINT"   [165] [163][208][167][206][163][205] [206][163][205]  [163][205] [163][207][163]      [165][167]"
  197. 7208 PRINT"   [165]  [167][167] [160]  [207][163][163] [206][163][205][165] [165]       [204][186]"
  198. 7210 PRINT"   [205][164][164][206][167]    [205][164][206] [205][164][206][165] [205][164]      [162][162]"
  199. 7220 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  200. 7232 PRINT"                             ":GOTO8300
  201. 8200 PRINTS$:PRINT" [167]    [165]           [165]                 [207][208]"
  202. 8206 PRINT" [167]    [165]           [165]                 [165][167]"
  203. 8207 PRINT" [167]    [165] [163][205] [165]  [165]  [163][207][163] [206][163][205]   [206][163][205] [206][163][205]  [165][167]"
  204. 8208 PRINT" [167] [206][205][160][165][206][163][205][165][165]  [165]   [165]  [165][160][167]   [165][160] [165][165][160][167]  [204][186]"
  205. 8210 PRINT" [167][206][160][160][205][165][205][164][206][165][205][164][206][165]   [205][164] [205][164][206]   [205][164][206][165][205][164][206]  [162][162]"
  206. 8220 PRINT" [175][175][175][175][175][175][175][175][175]    [165][175][175][175][175][175][175][175][175][175][175][175]    [165][175][175][175][175][175][175][175][175]"
  207. 8232 PRINT"           [205][164][206]             [205][164][206]"
  208. 8300 GOSUB791:GOSUB860:PRINTS$:FORII=1TO8:PRINT" "UP$,:NEXT:PRINTWW$""
  209. 8302 FORII=1TO8:PRINTUP$,:NEXT:PRINTWW$"";:NR=NR+1:RETURN
  210. 10000 IFUW=0THENZZ=PEEK(53281):POKE53281,INT(RND(1)*16)
  211. 10001 IFUW=0THENFORZ=1TO60:NEXT:POKE53281,ZZ:RETURN
  212. 10010 SYS826:RETURN
  213. 11279 PRINT:FORX=1TO5:PRINT"                               [146]":NEXT:GOSUB730
  214. 11280 PRINT"[145][145][145]     YOU'RE WRONG AGAIN !    [146]":GOSUB835:GOSUB860:RETURN
  215. 12000 PRINTWW$"THE RIGHT ANSWER WAS "MID$(STR$((CC-1)*IN+SN),2)
  216. 12500 FORX=1TO40
  217. 12501 PRINTWW$""SPC((CC-1)*5)"     "
  218. 12502 PRINTWW$SPC((CC-1)*5)""MID$(STR$((CC-1)*IN+SN),2)
  219. 12503 PRINTWW$SPC((CC-1)*5)""MID$(STR$((CC-1)*IN+SN),2)
  220. 12508 NEXT:GOSUB835:GOSUB860:PRINTWW$""
  221. 12509 FORII=1TO8:PRINT" "UP$:NEXT:PRINTWW$"":RETURN
  222. 15000 IFWR=1THENTY=5:GOSUB11279:GOTO15050
  223. 15005 PRINT:FORX=1TO5:PRINT"                               [146]":NEXT:GOSUB730
  224. 15008 PRINT"[145][145][145]YOU'RE WRONG -- BUT TRY AGAIN[146]"
  225. 15040 GOSUB835:GOSUB860
  226. 15050 PRINTWW$"":FORII=1TO14
  227. 15051 PRINTUP$:NEXT:PRINTWW$"":IFTY=5THENTY=0:RETURN
  228. 15075 WR=WR+1
  229. 15095 PC=8
  230. 15190 RETURN
  231. 15199 :
  232. 16000 PRINT"[147]            [164][164][164][164][164][164][164][164][164][164][164][164][164]
  233. 16005 [153]"          CLOSE(null)    CLOSEFN THEN     (null)
  234. 16010 PRINT"          [206][160][160]    [212] [217]      [205]
  235. 16015 [153]"         (null)  CLOSE    CHR$ LEFT$       (null)
  236. 16020 PRINT"        [206]        [194] [221]        [205]
  237. 16025 [153]"CLOSE      (null)         (null)CLOSEPEEK         (null)
  238. 16030 PRINT"      [167]          [200] [199]          [165]
  239. 16035 [153]"      (null)          (null)CLOSE(null)          (null)
  240. 16040 PRINT"      [200][164][210][198][192][195][195][195][192][198][210][186][160][204][210][198][192][195][195][195][192][198][210][164][199]
  241. 16045 [153]"      (null)ANDPOSNEWFREUSRUSRUSRFREWAITNEWPOSANDTAB(ANDPOSNEWFREUSRUSRUSRFREWAITNEWPOSAND(null)
  242. 16050 PRINT"     [206][165]           [146]            [146][167][205]
  243. 16055 [153]"    (null) FN           WAIT            WAITTHEN (null)
  244. 16060 PRINT"   [206]  [165]           [146]            [146][167]  [205]
  245. 16065 [153]"  (null)   (null)USRFRENEWPOSANDANDANDPOSNEWWAITFRETOCLOSETOFRENEWPOSANDANDANDPOSNEWWAITFREUSR(null)   (null)
  246. 16070 PRINT"[160] [165]    [207][197][196][195][192][192][192][195][196][197][167][160][165][197][196][195][192][192][192][195][196][197][208]    [167]
  247. 16075 [153]"  FN    FN        CLOSE(null)TO(null)         THEN    THEN
  248. 16080 PRINT"[160] [165]    [205]        [169][146][207] [146][208][223][146][160]       [206]    [167]
  249. 16085 [153]"  FN     (null)      (null) WAITFN WAITTHEN WAIT(null)      (null)     THEN
  250. 16090 PRINT"  [165]  [160] [160] [205]    [169][146][165][160][146][165] [146][167][160][146][167][223][146]    [206]      [167]
  251. 16095 [153]" (null)   CLOSE CLOSE  FN  (null)CLOSEWAITFNCLOSEWAITFN WAITTHENCLOSEWAITTHENCLOSEWAIT(null)  THEN        (null)
  252. 16100 PRINT"[167][160]   [160] [160]  [165] [169][146][165][160][146][165][160][146][165][160][146][167][160][146][167] [146][167][223][146] [167]         [165]
  253. 16105 [153]"THEN         FN TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( THEN         FN
  254. 16110 PRINT"[167]         [205][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][206][160]        [165]
  255. 16115 [153]"CLOSE(null)TOANDPOSNEWFREUSRTAB(CLOSE                TAB(TAB(TAB(USRFREWAITNEWPOSANDTO(null)CLOSE
  256. 16120 PRINT"    DARTH VADER CONGRATULATES YOU!"
  257. 16124 GOTO16140
  258. 16128 FO=2000
  259. 16133 FO=FO/1.5:FORI=0TOFO:NEXT:GOSUB10000:IFFO>0THEN16133
  260. 16138 PRINT"[147]":GOSUB10000:GOSUB10000:RETURN
  261. 16140 FORFO=1TO70:FORAK=1TO10:NEXT:GOSUB10000:NEXT
  262. 16150 FORU=1TO20:PRINT"[142]";:GOSUB10000:NEXT
  263. 16155 PRINT"[147]  [217]OU HAVE A CHOICE:
  264. 16160 [153]"  (null)RESS  (null) WAIT TO PLAY AGAIN.
  265. 16165 PRINT"  [208]RESS  M [146] TO RETURN TO THE [205][197][206][213]
  266. 16170 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]16170
  267. 16175 [139]R$[178]"P"[167][140]:[137]1000
  268. 16182 [153]"LOAD  RETURNING TO THE MAIN MENU
  269. 16184 LOAD"MENU",8
  270. 16186 RUN
  271. 16188 END
  272. 28000 PRINT"[147]"
  273. 28050 PRINT" YOU GOT"NR"OUT OF"TQ"BLANKS RIGHT!":GOSUB835
  274. 28080 RETURN
  275. 29000 PRINT"[147] BETTER LUCK NEXT TIME!!":GOSUB835
  276. 29010 RETURN
  277. 30000 REM WHC 90:11:29
  278.